﻿<%

Private Function Test()
    Dim x, y
    x = 5 - 1
    y = 6 - 1

    Dim ods(), entity()
    Dim i, j

    ReDim ods(x)  

    For i = 0 To x
        ReDim entity(y)
        For j = 0 To y
            entity(j) = (i*i + j*j) & " 卡"
        Next
        ods(i) = entity
    Next
    Test = ods
End Function

 



Response.Write("Hello ASP, 你好!! <br/>")


Dim ods
ods = Test()

%>
<html>
<head>
</head>
<body>
    <table border="1">
        <%For Each entity In ods%>
        <tr>
            <%For Each value In entity%>
            <td>
                <%=value %>
            </td>
            <%Next %>
        </tr>
        <%Next%>
    </table>
    <table border="1">
    <%
        Dim i
        i = 0
        For Each entity In ods
            If ((i Mod 4) = 0) Then
                Response.Write "<tr>"
            End If

                Response.Write "<td>" & entity(0) & "</td>"
                'Response.Write "<td width=""70"" align=""left""><a href=""cardbygame_"&entity(0)&".asp"" title="""&entity(1)&""" target=""_self""><font color="""">"&entity(1)&"</font></a></td>"

            If ((i Mod 4) = 4 - 1) Then
                Response.Write "</tr>"
            End If
            i = i + 1
        Next
         %>
    </table>
</body>
</html>
